home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].po / VIRT.MACS.S < prev    next >
Text File  |  1996-12-24  |  943b  |  59 lines
  1.           LST OFF
  2. *===============================
  3. *     Virtual Array Macros
  4. *===============================
  5.  
  6.           EXP OFF        ;don't expand macros
  7. mov       mac
  8.           lda ]1
  9.           sta ]2
  10.           <<<
  11.  
  12. movd      mac
  13.           mov ]1         ;]2
  14.           mov ]1+1       ;]2+1
  15.           <<<
  16.  
  17. push      mac
  18.           lda ]1+1
  19.           pha
  20.           lda ]1
  21.           pha
  22.           <<<
  23.  
  24. pull      mac
  25.           pla
  26.           sta ]1
  27.           pla
  28.           sta ]1+1
  29.           <<<
  30.  
  31. incr      mac
  32.           inc ]1
  33.           bne incr_out
  34.           inc ]1+1
  35. incr_out
  36.           <<<
  37.  
  38. go_sys    mac
  39.           lda #]1
  40.           jsr GOSYSTEM
  41.           <<<
  42.  
  43. go_dos    mac
  44.           mov #]2        ;do_dos+7 ;just low byte
  45.           lda #]1
  46.           jsr do_dos
  47.           <<<
  48.  
  49. print     mac
  50.           jsr sendmsg
  51.           if "=]1
  52.           asc ]1
  53.           else
  54.           dfb ]1
  55.           fin
  56.           brk
  57.           <<<
  58.           LST ON
  59.